      SUBROUTINE GETPQRUHF(Z, NFIRST, IRREPS, LIST, filename)
C
C THIS ROUTINE RETRIEVES ALL IRREPS OF PQR IN PQRS 
C  IN THE VECTOR Z.  LENGTH IS THE TOTAL LENGTH OF THE
C  LIST, LSTNUM IS THE NUMBER OF THE LIST ON THE MOINTS FILE.
C
CEND
      use mod_iop
      IMPLICIT NONE
C-------------------
C----------------------------------
      INTEGER, intent(inout) :: list, NFIRST,  IRREPS
      DOUBLE PRECISION, intent(inout) :: Z(*)
      character(len=8), intent(in) :: filename
      if(prec==8) then 
         call getpqrso(z, nfirst, irreps, list, filename)
      elseif(prec==4) then 
         call getpqrso_s(z, nfirst, irreps, list, filename) 
      endif 
C
      RETURN
      END
